Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/mac/3-Presentations/Apple Demos/CPUs/Macintosh Solutions Demo/Macintosh Solutions 1.0/stack.txt

Text File | 1990-08-24 | 8KB | 273 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2732
-- card count: 36
-- first card id: 2980
-- list block id: 23451
-- print block id: 10709
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 279648 bytes
-- stack block size: 7680 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-----------------------------------------------------------------------
--                        Macintosh Solutions
--                     © 1990 Apple Computer, Inc.
--                        © 1990 HyperPro,Inc.
--                           Version 1.0
-----------------------------------------------------------------------
STACK: Macintosh Solutions

HANDLERS: closestack,doMenu,arrowkey,doAttract,endAttract,
--        openstack,badVersion,idle,checkReset,setTimerLoc,
--        goSubMenu,go,security,show,showCopyright

FUNCTIONS: alphaNum

RESOURCES:
vers: ,
FOND: Garamond
FONT: Garamond,,,,,,,,,,
XFCN: Display,GetValue
XCMD: TitleBar,SaveColorState,GETMAXCOLORS,SetColorState,flushevents,WriteVersion,SetVolume,PlayVW,ClipVW,GetFrameVW,SetScreenVW,DrawPict,NewWindow,NewObject,SetWindow,Color,Objects,Windows,SetValue
PICT: Macintosh Classic,Macintosh IIci,Macintosh IIfx,Macintosh IIsi,Macintosh LC,Macintosh Portable,Macintosh SE/30,Classic,IIci,IIfx,IIsi,LC,Portable,SE/30,Color Apple

Size of script: 2935 chars
----------------------------------------------------------------------
-- Apple Team:
-- Joanne Varni (Project Manager)

-- HyperPro Team:
-- Garth Catterall (VideoWorks Engineer)
-- Peter Cleaveland (Implementor)
-- Lode Coen (Director of Computer Graphics)
-- David Donaldson (Creative Director)
-- Paul Foraker (Project Manager, Technical Director)
-- Jeff Stokol (Illustrator)
-- Elaine Ung (Test Engineer)

-----------------------------------------------------------------------
on closestack
  global KWspace,MSscripting,RPStackName
  showCopyRight
  security FALSE
  if RPStackName = "" then titleBar show
  put empty into MSscripting
  if KWspace is not empty then windows killAll
end closestack

on openstack
  global InstoreReturnPath
  if the version < 1.2 then badVersion
  setTimerLoc
  put "Main Menu" into InstoreReturnPath
end openstack

on security what
  global MSscripting,InstoreUserPrefs,RPStackName
  if what is TRUE then
    put FALSE into MSscripting
    put the userlevel into line 1 of InstoreUserPrefs
    put the blindTyping into line 2 of InstoreUserPrefs
    hide msg
    set the loc of msg to -1000,-1000
    set blindTyping to FALSE
    hide menuBar
    titleBar hide
    set the cantModify of this stack to TRUE
    set userLevel to 0
  else
    put TRUE into MSscripting
    if line 1 of InstoreUserPrefs is not empty then set userLevel to line 1 of InstoreUserPrefs else set userLevel to 2
    if line 2 of InstoreUserPrefs is not empty then set blindTyping to line 2 of InstoreUserPrefs
    if rpStackName is "" then
      --•• Added by Medior 8/8/90
      titleBar show
      show menuBar
    end if
    set the cantModify of this stack to FALSE
    set the loc of msg to 24,364
  end if
end security

on badVersion
  answer "Sorry, this stack requires HyperCard v 1.2." with "Home" or "Quit"
  if it is "Quit" then doMenu "Quit HyperCard" else
  set lockmessages to TRUE
  go Home
end if
end badVersion

on idle
  global NextResetTime, firstLoc, MSscripting --, NeedMenuRefresh
  if MSscripting is EMPTY then security TRUE
  if MSscripting is true then pass idle
  checkReset --see if it’s time to reset
  pass idle
end idle

on checkReset
  global NextResetTime, firstLoc
  if firstLoc <> the mouseLoc then setTimerLoc
  if the seconds > NextResetTime then

    -- there is no final count, go right to attract loop
    doAttract

    setTimerLoc -- reset the switches
  end if
end checkReset

on setTimerLoc -- called by all events that inhibit reset
  global NextResetTime, firstLoc
  put the seconds + cd fld "timeOut" of cd "Main Menu" into NextResetTime
  put the mouseLoc into firstLoc
end setTimerLoc

on doMenu what
  global MSscripting,RPStackName
  if MSscripting is TRUE then pass doMenu
  if what is in "Home,Quit HyperCard" AND the shiftKey is "down" then pass doMenu
  if what is in "Home,Quit HyperCard" AND RPStackName is not empty then
    beep
    set cursor to "watch"
    put RPStackName into shortName
    repeat until offset(":",shortName) = 0
      delete char 1 to offset(":",shortName) of shortName
    end repeat
    delete last char of shortName
    answer "This will return to "&shortName&"." with "Cancel" or "OK"
    if it is "Cancel" then exit doMenu
    lock screen
    go RPStackName
    unlock screen with dissolve
  end if
end doMenu

on arrowkey
  global MSscripting
  if MSscripting = TRUE then pass arrowkey
end arrowkey

on show what
  global MSscripting
  if MSscripting is TRUE then pass show
end show

on doAttract
  global firstLoc
  go cd 1
  put the mouseLoc into firstLoc
  playVW "attract 1",vwstage,vwclick,vwnoupdate
  getframeVW
  if (the mouseClick) OR (the mouseLoc ≠ firstLoc) OR (the result is not 0) then endAttract
  playVW "attract 2",vwstage,vwclick,vwnoupdate
  getframeVW
  if (the mouseClick) OR (the mouseLoc ≠ firstLoc) OR (the result is not 0) then endAttract
  playVW "attract 3",vwstage,vwclickp,vwnoupdate
  getframeVW
  if (the mouseClick) OR (the mouseLoc ≠ firstLoc) OR (the result is not 0) then endAttract
  playVW "attract 4",vwstage,vwclick,vwnoupdate

  endAttract
end doAttract

on endAttract
  playVW "Grey Frame",vwstage--,vwnoupdate
  go this card
  exit to HyperCard
end endattract

on goSubMenu firstChar
  put "USA" & firstChar & "1" into cardName
  go card cardName
end goSubMenu

on go
  set cursor to watch
  pass go
end go

function alphaNum whichLetter
put "A,B,C,D,E,F" into list
repeat with i = 1 to the number of items in list
  if whichLetter is item i of list then return i
end repeat
end alphaNum

on showCopyright
  -- Requires PICT ID 601, the copyright notice PICT
  -- Will wait a specified time regardless of keyboard or mouse activity

  put 3 into waitTime      -- number of seconds to display window
  put "wait" && waitTime && "secs" into waitMsg

  setWindow 3
  windows "recall", 1003
  windows "show",3
  get display(0, 3, waitMsg)

  set lockRecent to TRUE
  go cd "CopyRight"
  lock screen
  go cd 1
  set lockRecent to FALSE
  wait 3 seconds
end showCopyright